home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
bbs
/
amms20d.lha
/
amms
/
mbbatch
/
filebatch7
/
lha
< prev
next >
Wrap
Text File
|
1995-05-05
|
2KB
|
66 lines
; Amiga-Dos-Batch
;
; Beeinflussung der Ein-/Ausgabe: sethflags <Flags>
; -------------------------------------------------
; Flags: AN AUS Funktion
; (Default)
; r1 r0 Raw-Eingabe
; o1 o0 Raw-Ausgabe
; m1 m0 More ein
; c1 c0 CTRL-C erlaubt
; x1 x0 CTRL-X erlaubt (entspricht CTRL-D im Amiga-Dos)
; e1 e0 Bei Fehler -> CTRL-C
; f1 f0 Bei Fehler -> CTRL-X
;
; Beispiel: sethflags r1o1c0x0
;
;
; Bekannte Variablen :
; --------------------
; ${BOARD} Brettname (leer, wenn kein Brett)
; ${CLS} AMMS-Sequence zum Loeschen des Screens (sethflags t1)
; ${CON} Port-Consolen-Status (0=keine Console,1=Console)
; ${FILE} Pfadname+Filename
; ${FILEPART} Filename
; ${PATHPART} Pfadname
; ${LEVEL} Level des Users
; ${NAME} Username
; ${PORT} Aktueller Portname
; ${SYSOPACC} Sysop-Zugriff auf File (0=kein Zugriff,1=Zugriff)
; ${DOWNACC} Download-Zugriff auf File (0=kein Zugriff,1=Zugriff)
; ${UPACC} Upload-Zugriff auf File (0=kein Zugriff,1=Zugriff)
; ${DELACC} Loesch-Zugriff auf File (0=kein Zugriff,1=Zugriff)
; ${OWNER} Uploader des File (0=nein,1=ja)
;
;
; Rueckgabewert : setreturn "[Parameter] [Parameter] [...]"
; ---------------------------------------------------------
; CHANGEDAT Filedaten wurden geaendert (z.B. Laenge)
; COMMENT=<Str> Aendere Kurz-Kommentar zum angegebenen String
; DELETE Loesche File
; ECOMMENT Extra-Kommentar existiert (z.B. Vorgabe beim Upload)
; NOEDIT Keine Extra-Kommentar-Eingabe beim Upload
; REFRESH Screen muss wegen Ausgaben neu aufgebaut werden
; REFRESHLINE Zeile wegen Datenaenderung neu aufbauen
; RENAME=<Name> File in den angegebenen Namen umbenennen
; WAIT Auf Taste warten (inc. Warte-Text)
;
; Beispiel: setreturn WAIT REFRESH COMMENT="Ein Kommentar"
failat 100
setreturn WAIT REFRESH
sethflags t1m1
echo "${CLS}"
sethflags t0x1c1
lha <nil: -P-1 v "${FILE}"
lha <nil: >nil: -P-1 x "${FILE}" "mbmsg:point/${PORT}/" File_ID.diz
if exists "mbmsg:point/${PORT}/File_ID.diz"
sethflags t1
echo "*n*nFile_ID.diz:*n------------*n"
type "mbmsg:point/${PORT}/File_ID.diz"
delete "mbmsg:point/${PORT}/File_ID.diz" quiet
endif